    Mac OS X            	   2          R  TEXTDAVE                       n   n   >ate {var m: months; var d: days; var y: years}; 
  begin
    m := thedate.month;     
    d := thedate.day; 
    y := thedate.year;
  end; 
  
  function screenwidth {: integer}; 
  begin
    screenwidth := syscom^.crtinfo.width;
  end;
  
   H Courier r:ћ;

Procedure Bell(   * U < $Uݼ ] ] ]     * U < $U ]               n   n   >E
    >  MPSR  
           L